1 REM   TURTLE DEMO
10 RESET:COLR14,6:TAILUP:RIGHT150:MOVE127:LEFT150:TAILDOWN
20 FORG=1TO36:FORT=1TO2:FORR=1TO8:MOVE9:LEFT10:NEXT
30 FORR=1TO6:MOVE9:RIGHT10:NEXTR,T:RIGHT170:NEXT:GOSUB300
40 COLR6,14:FORT=4TO8STEP2:A=360/T
50 FORR=1TOT:FORG=1TOT:MOVEA:LEFTA:NEXT:RIGHTA:NEXT
60 GOSUB300:NEXT
70 POKE53280,0:COLR0,2:A=160:FORT=1TO200:MOVET:LEFTA:NEXT:GOSUB300
80 COLR6,14:POKE53280,14:FORT=13TO15STEP2:A=720/T
90 FORR=1TOT:FORG=1TOT:TAILDOWN:IFG/2=INT(G/2)THENTAILUP
100 MOVEA:LEFTA:NEXT:RIGHTA:NEXT
110 GOSUB300:NEXT
120 POKE53280,0:COLR0,6:FORT=1TO24:FORR=1TO36
130 MOVE10:LEFT10:NEXT:RIGHT15:NEXT:GOSUB300
140 COLR6,8:POKE53280,14:A=89.5:FORT=1TO230STEP1.5:MOVET:LEFTA:NEXT:GOSUB300
299 TEXT:END
300 FORY=1TO1200:NEXT:RESET:RETURN